From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 19 Nov 1996 07:38:29 +0000 (+0000)
Subject: (resize-minibuffer-frame): Don't assume minibuffer frame is selected.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~82474
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c7385664fde60a1fe4d617ccd6d19d83b355c3c2;p=emacs.git

(resize-minibuffer-frame): Don't assume minibuffer frame is selected.
---

diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el
index f1221b40ba9..cf278d00b09 100644
--- a/lisp/rsz-mini.el
+++ b/lisp/rsz-mini.el
@@ -7,7 +7,7 @@
 ;; Maintainer: friedman@prep.ai.mit.edu
 ;; Keywords: minibuffer, window, frame, display
 ;; Status: Known to work in FSF GNU Emacs 19.26 and later.
-;; $Id: rsz-mini.el,v 1.11 1996/01/14 07:34:30 erik Exp kwzh $
+;; $Id: rsz-mini.el,v 1.12 1996/11/14 18:49:50 kwzh Exp kwzh $
 
 ;; This file is part of GNU Emacs.
 
@@ -232,11 +232,12 @@ respectively."
          (setq lines (min lines resize-minibuffer-frame-max-height)))
     (cond
      ((> lines height)
-      (set-frame-size (selected-frame) (frame-width) lines))
+      (set-frame-size (window-frame (minibuffer-window)) (frame-width) lines))
      ((and resize-minibuffer-frame-exactly
            (> height resize-minibuffer-frame-original-height)
            (< lines height))
-      (set-frame-size (selected-frame) (frame-width) lines)))))
+      (set-frame-size (window-frame (minibuffer-window))
+		      (frame-width) lines)))))
 
 ;; Restore the original height of the frame.
 ;; resize-minibuffer-frame-original-height is set in